home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 March - Disc 1 / Macworld (1999-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Modes / igorMode.tcl < prev    next >
Encoding:
Text File  |  1998-08-13  |  2.3 KB  |  92 lines  |  [TEXT/ALFA]
  1. # nowrap
  2.  
  3. alpha::mode Igor 1.01 igorMenu { *.igor } {igorMenu electricTab} {
  4.     addMenu igorMenu "•284"
  5. }
  6.  
  7. proc igorMenu {} {}
  8.  
  9. set igorSig IGR0
  10.  
  11. Menu -n $igorMenu -p igorMenuProc {
  12.     "/S<U<OswitchToIgor"
  13.     "(-"
  14.     "/K<U<OopenFileInIgor"
  15.     "/K<U<O<BswitchFileToIgor"
  16. }
  17.  
  18. proc igorMenuProc {menu item} {
  19.     global igorSig
  20.     switch $item {
  21.     switchToIgor {app::launchFore $igorSig}
  22.     openFileInIgor {
  23.         openAndSendFile $igorSig
  24.     }
  25.     switchFileToIgor {
  26.         openAndSendFile $igorSig
  27.         killWindow
  28.     }
  29.     }
  30. }
  31.  
  32.  
  33. set Igor::commentCharacters(General) "// "
  34. set Igor::commentCharacters(Paragraph) [list "// " "// " "// "]
  35.  
  36. newPref v leftFillColumn {3} Igor
  37. newPref v prefixString {//} Igor
  38. newPref f wordWrap {0} Igor
  39. newPref v funcExpr {^[ \t]*([pP]roc.+$|[mM]acro.+$|[fF]unction.+$)} Igor
  40. newPref v parseExpr {\b([_:\w]+)\s*\(} Igor
  41. newPref v wordBreak {[_\w]+} Igor
  42. newPref v wordBreakPreface {[^_\w]} Igor
  43. newPref f autoMark 0 Igor
  44. newPref v stringColor green Igor
  45. newPref v commentColor red Igor
  46. newPref v funcColor yellow Igor
  47. newPref v keywordColor blue Igor
  48.  
  49. set igorCommentRegexp    {(//|[^%]\|)}
  50. set igorPreRegexp    "^\#\[\t \]*\[a-z\]*"
  51. set igorKeyWords {
  52.     break for if endif do while continue
  53.     return else end variable string wave NVAR SVAR
  54.     function proc macro
  55. }
  56.  
  57. regModeKeywords -e {//} -c red -f yellow -k blue -s green Igor $igorKeyWords
  58.  
  59. unset igorKeyWords
  60.  
  61. proc Igor::MarkFile {} {
  62.     global IgormodeVars
  63.     set pos [minPos]
  64.     
  65.     while {![catch {search -s -f 1 -r 1 -m 0 -i 1 $IgormodeVars(funcExpr) $pos} res]} {
  66.     set start [lindex $res 0]
  67.     set end [pos::math [lindex $res 1] + 1]
  68.     set text [getText $start $end]
  69.     set inds($text) [list $start [pos::math $start + [string length $text]]]
  70.     set pos $end
  71.     }
  72.     
  73.     set pos [minPos]
  74.     set markExpr {(^[ \t]*[Mm]enu.*$|===[^=]+===\s*$)}
  75.     while {![catch {search -s -f 1 -r 1 -m 0 -i 1 -- "$markExpr" $pos} res]} {
  76.     set start [lindex $res 0]
  77.     set end [pos::math [lindex $res 1] - 1]
  78.     set text [string trimright [getText $start $end] ]
  79.     set inds($text) [list $start [pos::math $start + [string length $text]]]
  80.     set pos $end
  81.     }
  82.     if {[info exists inds]} {
  83.     foreach f [array names inds] {
  84.         set res $inds($f)
  85.         setNamedMark $f [lineStart [lindex $res 0]] [lindex $res 0] [lindex $res 1]
  86.     }
  87.     }
  88.     namedMarkProc {namedMarks} {sortByPosition}
  89. }
  90.  
  91.  
  92.